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-- file SymDefs.Mesa 

— last modified by Satterthwaite, October 3. 1977 2:04 PM 

DIRECTORY 

AltoDefs: FROM "altodefs". 
BcdDefs: FROM "bcddefs", 
TableDefs: FROM "tabledefs"; 

SymDefs: DEFINITIONS = 
BEGIN 

VersionID: CARDINAL = 08287; 

-- symbol segment headers 

FileOffset: TYPE = CARDINAL; 

STHeader: TYPE = RECORD [ 
versionldent: CARDINAL, 
version: BcdDefs .VersionStamp, 
creator: BcdDefs .VersionStamp , 
def initionsFile: BOOLEAN, 
directoryCtx: CTXIndex, 
importCtx: CTXIndex, 
outerCtx: CTXIndex, 
hvOf fset: FileOffset. 
hvSize: CARDINAL. 
htOffset: FileOffset. 
htSize: CARDINAL. 
ssOffset: FileOffset. 
ssSize: CARDINAL. 
seOffset: FileOffset. 
seSize: CARDINAL. 
ctxOf rset: FileOffset. 
ctxSize: CARDINAL. 
mdOffset: FileOffset. 
mdSize: CARDINAL, 
bodyOffset: FileOffset. 
bodySize: CARDINAL. 
fgRelPgBase: CARDINAL. 
fgPgCount: Al toDef s . PageCount] ; 

-- hash table declarations 

HVLength: PRIVATE INTEGER = 71; 
HVIndex: TYPE = INTEGER [0. .HVLength) ; 

HTRecord: TYPE = RECORD [ 

anylnternal, anyPublic: BOOLEAN, 
link: HTIndex, 
sslndex: CARDINAL]; 

HTIndex: TYPE = INTEGER [0 .. TableDefs . Tabl eLimi t/2) ; 

IITNull: HTIndex = LAST[HTIndex] ; 

-- semantic entry table declarations 

TypeClass: TYPE = { 
mode, 
bas ic , 
enumerated , 
record, 
po in ter , 
array , 
arraydesc . 
transfer , 
def in i t ion , 
un ion , 
subrange 

}; 

Ti-ansferMode; TYPE = {procedure, port, signal, error, program, inline, none}; 
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SERecord: TYPE = RECORD [ 
mark3, mark4: BOOLEAN, 
sebody: SELECT setag: ♦ FROM 
id => [ 

public, readonly: BOOLEAN, 
ctxnum: CTXIndex, 
writeonce, constant: BOOLEAN, 
idtype: SEIndex, 
idinfo: UNSPECIFIED, 
idvalue: UNSPECIFIED, 
htptr: HTIndex, 
external : BOOLEAN, 
ctxlink: SELECT linktag: * FROM 
terminal => NULL, 
sequential «> NULL, 
linked => [link: ISEIndex], 
ENDCASE], 
constructor => [ 

typeinfo: SELECT typetag: TypeClass FROM 
mode »> NULL, 
basic => [ 

ordered: BOOLEAN, 
code: [0. .16). 
length: CARDINAL], 
enumerated *> [ 
ordered: BOOLEAN, 
valuectx: CTXIndex, 
nvalues: CARDINAL], 
record => [ 

machineDep: BOOLEAN, 
unifield: BOOLEAN, 
length: CARDINAL, 
fieldctx: CTXIndex, 
variant: BOOLEAN, 
linkpart: SELECT linktag: • FROM 
notMnked => NULL, 
linked => [linktype: SEIndex], 
ENDCASE], 
pointer -> [ 

ordered, readonly: BOOLEAN, 
pointedtotype: SEIndex], 
array, arraydesc => [ 
packed: BOOLEAN, 
indextype: SEIndex, 
componenttype: SEIndex], 
transfer => [ 

mode: TransferMode, 
inrecord: recordCSEIndex , 
outrecord: recordCSEIndex], 
definition -> [ 
nGfi: [1 . . 4], 
defCtx: CTXIndex], 
union => [ 

equalLengths: BOOLEAN, 
casectx: CTXIndex, 
ovenayed: BOOLEAN, 
controlled: BOOLEAN, 
tagsei: ISCIndex], 
subrange => [ 

filled, empty, flexible: BOOLEAN, 
rangetype: SEIndex, 
origin; INTfGFR. 
range: CARDINAL], 
ENDCASE], 
ENDCASE]; 

SEIndex: TYPE = POINTFR [0 . . Tab! eDef s . Tabl eL imi t ) TO SERecord; 

TSrindex: TYPE = POINirR [0 . . Tabl eDefs . Tab! el Jm i L ) TO id SERecord; 
CSrindex: TYPE = POINirR [0 .. Tabl eOefs . Tabl el imit) TO constructor SERecord; 

recordCSEIndex: TYPE - POINTER. [0 ., Tab1 eDefs . Tab 1 el. im i t ) TO record constructor SERecord; 

arrayCSEIndex: TYPE = POINTER [0 .. Tabl eDefs . Tab 1 el imi t ) TO array constructor SERecord; 

SENull: SEIndex - LAST[Sr Index] ; 

ISENull: ISrindex = ! OOPIIOI-F[SFNul 1 ] ; 
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CSENull: CSEIndex « LOOPHOLE[SENun ]; 

recordCSENull: recordCSEIndex * LOOPHOLECSENull] ; 
arrayCSENull: arrayCSEIndex = LOOPH0LE[SENul 1]; 

-- the following two values are guaranteed by the compiler 
typeTYPE: CSEIndex = FIRST[CSEIndex] ; 
typeANY: CSEIndex = typeTYPE + SIZ£[mode constructor SERecord]; 

-- codes identifying the basic types (extensible) 
codeANY: CARDINAL = 0; 

codelNTEGER: CARDINAL » 1; 

codeBOOLEAN: CARDINAL = 2; 

codeCHARACTER: CARDINAL « 3; 

bitaddress: TYPE = RECORD[ 

wd: [0. .AltoDefs.VMLimit/AltoDefs.wordlength], -- word displacement 
bd: [0. .AltoDefs.wordlength)]; -- bit displacement 

-- context table declarations 

maxcontextlevel : INTEGER = 7; 

ContextLevel : TYPE = [0 . .maxcontextlevel ] ; 

IZ: ContextLevel = 0; -- context level of non-frame records 

IG: ContextLevel = 1; -- context level of global frame 

IL: ContextLevel = lG+1; -- context level of outer procedures 

CTXRecord: TYPE = RECORD [ 
sn: Sn, -- for DeSoto 
sel ist : ISEIndex, 
ctxlevel: ContextLevel, 
extension: SELECT ctxType: * FROM 

simple => [ctxNew: CTXIndex], -- for DeSoto 
included => [ 

ctxchain: includedCTXIndex, 
ctxmodule: MDIndex, 
ctxmap: CTXIndex, 

ctxclosed, ctxcomplete, ctxreset: BOOLEAN], 
imported => [includeLink : includedCTXIndex], 
ENDCASE]: 

CTXIndex: TYPE = ORDERED POINTER [0..3777B] TO CTXRecord; 
includedCTXIndex: TYPE = ORDERED POINTER [0.. 37778] TO included CTXRecord; 

CTXNull: CTXIndex = LAST[CTXIndex] ; 

includedCTXNull: includedCTXIndex = LOOPHOLE[CTXNun ] ; 

-- module table declarations 

Filelndex: TYPE = [0,.77777B]; -- internal file handle 
nullFilelndex: Filelndex = LAST[F i lelndex] ; 

MDRecord: TYPE = RECORD [ 

mdhti: HTIndex, -- hash entry for file name 

mdctx: includedCTXIndex, -- context of copied entries 

mdshared: BOOLFAN, -- overrides PRIVATE, etc. 

mdFxported: BOOLEAN, 

mdStamp: BcdDefs .Versions tamp . 

mdFile: Filelndex]; -- associated file 

MDTndex: TYPE = ORDERED POINTER [0 . . Tab! eOef s . Tabl eLimi t) TO MDRecord; 
MDNull: MDIndex = LAST[MDIndex] ; 

OwnMdi: MDIndex = FIRST[MDIndex] ; 

-- body table declarations 

BodyRecord: TYPE = RECORD [ 
id: ISEIndex, 
iotype: SEIndex, 
entryindex: CARDINAL, 
filelndex: CARDINAL, 
info : body info, 
localctx: CTXIndex, 
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extension: SELECT nested: ♦ FROM 
outer »> NULL, 

inner '> [frameoff set: [0 . .AUoDefs.VMLimit]], 
ENDCASE]; 

bodyinfo: TYPE = RECORD [ 
SELECT mark: * FROM 
internal =»> [ 

nestLink: BTIndex, 

body! ink: BTIndex, 

bodytree: — TreeLink— UNSPECIFIED, 

framesize: CARDINAL], 
external => [ 

origin: [0 . ,A1 toDefs . VMLimit/2], 

bytes: CARDINAL, 

startindex, indexlength: CARDINAL], 
ENDCASE]: 

BTIndex: TYPE = POINTER [0. .TableDef s.TableLimi t) TO BodyRecord; 

innerBTIndex: TYPE = POINTER [0 .. TableDef s . TableLimit) TO inner BodyRecord; 

outerBTIndex: TYPE = POINTER [0. .Tabl eDefs . TableLimit) TO outer BodyRecord; 

BTNull: BTIndex = LAST[BTIndex] ; 

-- fine grain table header 

fgHeader: TYPE = RECORD [ 
fgoffset: FileOffset, 
fglength: CARDINAL, 
sourcefile: StringBody -- text follows --]; 

-- fine grain table declarations 

Bytelndex: TYPE = CARDINAL; 

FGTEntry: TYPE = RECORD [ 
findex: Bytelndex, 
cindex: Bytelndex]; 

-- definitions for use by DeSoto 

Sn: TYPE = {snNil, snValid, sninvalid, snlndirect}; 
END. 



